perm filename FOO[MAC,LSP] blob
sn#566679 filedate 1981-02-23 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00010 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00003 00002 1) CCLOAD.OLD[MAC,LSP] and 2) CCLOAD.INI[MAC,LSP] 2-23-81 12:40 pages 1,1
C00006 00003 1) CCLOAD.OLD[MAC,LSP] and 2) CCLOAD.INI[MAC,LSP] 2-23-81 12:40 pages 3,3
C00010 00004 1) CCLOAD.OLD[MAC,LSP] and 2) CCLOAD.INI[MAC,LSP] 2-23-81 12:40 pages 3,3
C00013 00005 1) CCLOAD.OLD[MAC,LSP] and 2) CCLOAD.INI[MAC,LSP] 2-23-81 12:40 pages 3,3
C00017 00006 1) CCLOAD.OLD[MAC,LSP] and 2) CCLOAD.INI[MAC,LSP] 2-23-81 12:40 pages 3,3
C00020 00007 1) CCLOAD.OLD[MAC,LSP] and 2) CCLOAD.INI[MAC,LSP] 2-23-81 12:40 pages 3,3
C00024 00008 1) CCLOAD.OLD[MAC,LSP] and 2) CCLOAD.INI[MAC,LSP] 2-23-81 12:40 pages 3,3
C00027 00009 1) CCLOAD.OLD[MAC,LSP] and 2) CCLOAD.INI[MAC,LSP] 2-23-81 12:40 pages 7,7
C00030 00010 1) CCLOAD.OLD[MAC,LSP] and 2) CCLOAD.INI[MAC,LSP] 2-23-81 12:40 pages 10,10
C00032 ENDMK
C⊗;
1) CCLOAD.OLD[MAC,LSP] and 2) CCLOAD.INI[MAC,LSP] 2-23-81 12:40 pages 1,1
**** File 1) CCLOAD.OLD[MAC,LSP]/1P/6L
1) C00017 00004
1) C00019 00005
1) C00022 00006
1) C00024 00007
1) C00027 00008
1) C00031 00009
1) C00033 00010
1) C00037 ENDMK
1) C⊗;
**** File 2) CCLOAD.INI[MAC,LSP]/1P/6L
2) C00018 00004
2) C00022 00005
2) C00025 00006
2) C00027 00007
2) C00030 00008
2) C00034 00009
2) C00036 00010
2) C00040 ENDMK
2) C⊗;
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/2P/5L
1) ;;; ** (c) Copyright 1980 Massachusetts Institute of Technology **
1) ;;; ****** this is a read-only file! (all writes reserved) *******
**** File 2) CCLOAD.INI[MAC,LSP]/2P/5L
2) ;;; ** (c) Copyright 1981 Massachusetts Institute of Technology **
2) ;;; ****** this is a read-only file! (all writes reserved) *******
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/3P/5L
1) (PROG (N READTABLE *RSET)
1) (SETQ READTABLE (ARRAY () READTABLE 'T)
**** File 2) CCLOAD.INI[MAC,LSP]/3P/5L
2) (PROG (N READTABLE *RSET)
2) (SETQ READTABLE (ARRAY () READTABLE 'T)
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/3P/16L
1) +INTERNAL-TEMP-MARKER :LOCAL-VAR CL:CL
1) *EXPR *FEXPR *LEXPR **LEXPR @DEFINE ARRAY*
**** File 2) CCLOAD.INI[MAC,LSP]/3P/16L
2) +INTERNAL-TEMP-MARKER :LOCAL-VAR CL:CL SOURCE-TRANS ACS
2) *EXPR *FEXPR *LEXPR **LEXPR @DEFINE ARRAY*
***************
1) CCLOAD.OLD[MAC,LSP] and 2) CCLOAD.INI[MAC,LSP] 2-23-81 12:40 pages 3,3
**** File 1) CCLOAD.OLD[MAC,LSP]/3P/22L
1) COUTPUT CREADTABLE EOC-EVAL EOF-COMPILE-QUEUE
1) GENPREFIX ALLOC-MARK-RATIO GOFOO MACRO-EXPAND MACROLIST
1) MAKLAP MSDEV MSDIR NCOMPLR NO-EXTRA-OBARRAY NOTYPE
1) NUMFUN NUMVAR ONMLS OWN-SYMBOL RECOMPL SKIP-WARNING
1) SOBARRAY SPECIAL SPLITFILE SPLITFILE-HOOK SQUID
**** File 2) CCLOAD.INI[MAC,LSP]/3P/22L
2) COUTPUT CREADTABLE EOC-EVAL EOF-COMPILE-QUEUE &BODY
2) GENPREFIX ALLOC-MARK-RATIO GOFOO MACRO-EXPAND MACROLIST
2) MAKLAP MSDEV MSDIR NCOMPLR NO-EXTRA-OBARRAY NOTYPE
2) NUMFUN NUMVAR ONMLS OWN-SYMBOL RECOMPL SETVST
2) SKIP-WARNING DISOWN LODBYT SI:PICK-A-MASK
2) SOBARRAY SPECIAL SPLITFILE SPLITFILE-HOOK SQUID
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/3P/29L
1) DEFSETF COMPUTE I-COMPUTE SIDE-EFFECTS RET-OK ACCESS INVERT
1) SETF +INTERNAL-SETF-X SETF-SIMPLEP-SCAN STRUCT-SETF
1) SSETF-COMPUTE SETF-COMPUTE SSETF-I-COMPUTE SETF-I-COMPUTE
1) SSETF-SIDE-EFFECTS SETF-SIDE-EFFECTS SSETF-RET-OK
1) SETF-RET-OK SSETF-ACCESS SETF-ACCESS SSETF-INVERT
1) SETF-INVERT SSETF-GENVALS SETF-GENVALS SSETF-GENSYMS
1) SETF-GENSYMS SSETF-USER-SLOT SETF-USER-SLOT SETF-STRUCT
1) SETF-X CONS-A-SETF SETF-CLASS LODBYT
1) SETVST USER-SLOT QUERY-IO Y-OR-N-P YES-OR-NO-P
1) GENTEMP LEXPR-SEND LEXPR-SEND-AS SEND-AS :SEND
1) EXTSFA DEFSFA SFA-UNCLAIMED-MESSAGE SI:DEFSFA-ACCESSOR
**** File 2) CCLOAD.INI[MAC,LSP]/3P/30L
2) QUERY-IO Y-OR-N-P YES-OR-NO-P SI:LOST-MESSAGE-HANDLER
2) SETF +INTERNAL-SETF-X SETF-SIMPLEP-SCAN STRUCT-SETF
2) SETF-STRUCT SETF-X CONS-A-SETF SETF-CLASS
2) USER-SLOT SETF-USER-SLOT GENSYMS SETF-GENSYMS
2) GENVALS SETF-GENVALS INVERT SETF-INVERT
2) ACCESS SETF-ACCESS RET-OK SETF-RET-OK
2) SIDE-EFFECTS SETF-SIDE-EFFECTS I-COMPUTE SETF-I-COMPUTE
2) COMPUTE SETF-COMPUTE
2) LEXPR-SEND LEXPR-SEND-AS SEND-AS :SEND
2) EXTSFA DEFSFA SFA-UNCLAIMED-MESSAGE SI:DEFSFA-ACCESSOR
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/3P/43L
1) SFA-UNCLAIMED-MESSAGE SI:PICK-A-MASK)
1) (ALLOC '(FIXNUM (2048. 10240. .25) FLONUM (256. 4096. .10)
**** File 2) CCLOAD.INI[MAC,LSP]/3P/45L
1) CCLOAD.OLD[MAC,LSP] and 2) CCLOAD.INI[MAC,LSP] 2-23-81 12:40 pages 3,3
2) SFA-UNCLAIMED-MESSAGE )
2) (ALLOC '(FIXNUM (2048. 10240. .25) FLONUM (256. 4096. .10)
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/3P/56L
1) (append '(SELECTOR CONSTRUCTOR STRUCT=INFO VERSION
1) GRINDFN GRINDPREDICT CARCDR |side-effectsp/||
1) EXPR FEXPR MACRO AUTOLOAD SETF-X GRINDFN
1) GRINDPREDICT GRINDMACRO GRINDFLATSIZE)
1) PUTPROP))
1) PURE-PUTPROP PUTPROP)))
1) (SETQ PUTPROP
1) (PURCOPY
1) (APPEND '(STATUS SSTATUS INST INSTN IMMED CARCDR ARITHP
1) NUMBERP NOTNUMP CONTAGIOUS COMMU BOTH CONV
1) ACS MINUS FLOATI P1BOOL1ABLE FUNTYP-INFO ARGS)
1) PUTPROP)))
1) ;; THESE ARE "BOOTSTRAP" VERSIONS - WILL BE REDEFINED BY MAKLAP FILE
1) (DEFUN CCLOAD:BOOTMACS (Y Z)
1) ;; CCLOAD:INITIAL-PROPS is a list of items like
1) ;; (<name> <prop1> <prop2> ... <propn>), where each 'prop'
1) ;; is to be preserved over INITIALIZE-ation.
1) ((LAMBDA (W)
1) (COND (W (RPLACD W (CONS Z (CDR W))))
1) ((SETQ CCLOAD:INITIAL-PROPS
1) (CONS (LIST Y Z)
1) CCLOAD:INITIAL-PROPS)))))
1) (ASSQ Y CCLOAD:INITIAL-PROPS))
1) () )
1) (DEFUN SPECIAL MACRO (L)
1) (MAPC #'(LAMBDA (X)
1) (PUTPROP X (LIST 'SPECIAL X) 'SPECIAL)
1) (CCLOAD:BOOTMACS X 'SPECIAL))
1) (CDR L))
1) ''SPECIAL)
1) (DEFUN *LEXPR MACRO (L)
1) (MAPC #'(LAMBDA (X)
1) (PUTPROP X 'T '*LEXPR)
1) (CCLOAD:BOOTMACS X '*LEXPR))
1) (CDR L))
1) ''*LEXPR)
1) (DEFUN *EXPR MACRO (L)
1) (MAPC #'(LAMBDA (X)
1) (PUTPROP X 'T '*EXPR)
1) (CCLOAD:BOOTMACS X '*EXPR))
1) (CDR L))
1) ''*EXPR)
1) CCLOAD.OLD[MAC,LSP] and 2) CCLOAD.INI[MAC,LSP] 2-23-81 12:40 pages 3,3
1) (SETQ CCLOAD:BOOTMACS '(SPECIAL *EXPR *LEXPR))
1) #-SAIL (SSTATUS FEATURE COMPLR)
1) #+ITS (SETQ CCLOAD:DUMPFILE () CCLOAD:DUMPVERNO '/0)
1) (SETQ CCLOAD:PURE PURE
**** File 2) CCLOAD.INI[MAC,LSP]/3P/58L
2) (append '(STRUCT=INFO SELECTOR CONSTRUCTOR AUTOLOAD
2) VERSION CARCDR |side-effectsp/|| SETF-X
2) GRINDFN GRINDPREDICT GRINDMACRO GRINDFLATSIZE)
2) putprop))
2) PURE-PUTPROP PUTPROP)))
2) (setq PUTPROP (purcopy (append '(CARCDR FUNTYP-INFO ARGS) PUTPROP)))
2) ;; THESE ARE "BOOTSTRAP" VERSIONS - WILL BE REDEFINED BY MAKLAP FILE
2) ((lambda (pure *pure)
2) (DEFUN CCLOAD:BOOTMACS (Y Z)
2) ;; CCLOAD:INITIAL-PROPS is a list of items like
2) ;; (<name> <prop1> <prop2> ... <propn>), where each
2) ;; 'prop' is to be preserved over INITIALIZE-ation.
2) ((LAMBDA (W)
2) (COND (W (RPLACD W (CONS Z (CDR W))))
2) ((SETQ CCLOAD:INITIAL-PROPS
2) (CONS (LIST Y Z)
2) CCLOAD:INITIAL-PROPS)))))
2) (ASSQ Y CCLOAD:INITIAL-PROPS))
2) () )
2) (DEFUN SPECIAL MACRO (L)
2) (MAPC '(LAMBDA (X)
2) (PUTPROP X (LIST 'SPECIAL X) 'SPECIAL)
2) (CCLOAD:BOOTMACS X 'SPECIAL))
2) (CDR L))
2) ''SPECIAL)
2) (DEFUN *LEXPR MACRO (L)
2) (MAPC '(LAMBDA (X)
2) (PUTPROP X 'T '*LEXPR)
2) (CCLOAD:BOOTMACS X '*LEXPR))
2) (CDR L))
2) ''*LEXPR)
2) (DEFUN *EXPR MACRO (L)
2) (MAPC '(LAMBDA (X)
2) (PUTPROP X 'T '*EXPR)
2) (CCLOAD:BOOTMACS X '*EXPR))
2) (CDR L))
2) ''*EXPR)
2) )
2) () () )
2) (SETQ CCLOAD:BOOTMACS '(SPECIAL *EXPR *LEXPR))
2) (and (status feature ITS)
2) (SETQ CCLOAD:DUMPFILE () CCLOAD:DUMPVERNO '/0))
2) (SETQ CCLOAD:PURE PURE
1) CCLOAD.OLD[MAC,LSP] and 2) CCLOAD.INI[MAC,LSP] 2-23-81 12:40 pages 3,3
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/3P/104L
1) (SETQ *PURE ()) 1)
1) ('T #-SAIL -1
1) #+SAIL
1) (COND ((STATUS FEATURE NCOMPLR)
1) (SETQ CCLOAD:PURESEG T) -1)
**** File 2) CCLOAD.INI[MAC,LSP]/3P/103L
2) 1)
2) ((status nofeature SAIL) -1)
2) ('T (COND ((STATUS FEATURE NCOMPLR)
2) (SETQ CCLOAD:PURESEG T) -1)
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/3P/114L
1) #+SAIL (SETQ CCLOAD:PURESEG (EQUAL PURE -1))
1) ((LAMBDA (PUTPROP)
1) (CC:subload DEFMAX)
**** File 2) CCLOAD.INI[MAC,LSP]/3P/112L
2) (and (status FEATURE SAIL) (SETQ CCLOAD:PURESEG (EQUAL PURE -1)))
2) (SSTATUS FEATURE COMPLR)
2) ((LAMBDA (PUTPROP)
2) (CC:subload SHARPM)
2) (CC:subload DEFMAX)
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/3P/120L
1) (CC:subload ERRCK)
1) (CC:subload MLMAC)
1) (OR (FBOUNDP (CAR (STATUS MACRO /#)))
**** File 2) CCLOAD.INI[MAC,LSP]/3P/120L
2) (CC:subload DEFVSY)
2) (CC:subload MLMAC)
2) (CC:subload MLSUB)
2) (OR (FBOUNDP (CAR (STATUS MACRO /#)))
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/3P/126L
1) (APPEND CCLOAD:BOOTMACS PUTPROP))
1) #+SAIL (SSTATUS FEATURE COMPLR)
1) (REMOB 'CC:subload)
1) (SETQ SAIL-MORE-SYSFUNS () )
1) #+SAIL (FASLOAD (DSK (MAC LSP)) MATCH FAS)
1) CCLOAD.OLD[MAC,LSP] and 2) CCLOAD.INI[MAC,LSP] 2-23-81 12:40 pages 3,3
1) (AND (STATUS FEATURE EXPERIMENTAL)
**** File 2) CCLOAD.INI[MAC,LSP]/3P/127L
2) (CONS 'MACRO (APPEND CCLOAD:BOOTMACS PUTPROP)))
2) (progn ;;Patch-up declarations
2) (or (memq 'EXTSTR-USERATOMS-HOOK USERATOMS-HOOKS)
2) (push 'EXTSTR-USERATOMS-HOOK USERATOMS-HOOKS))
2) (mapc '(lambda (x)
2) (or (get x '*LEXPR) (eval (list '*LEXPR x))))
2) '(GENTEMP SETSYNTAX-SHARP-MACRO SI:LOST-MESSAGE-HANDLER
2) CERROR SEND SEND-AS LEXPR-SEND LEXPR-SEND-AS))
2) (mapc '(lambda (x)
2) (or (get x 'SPECIAL) (eval (list 'SPECIAL x))))
2) '(GENTEMP SI:CLASS-MARKER SI:SKELETAL-CLASSES
2) CLASS-CLASS OBJECT-CLASS SEQUENCE-CLASS
2) VECTOR-CLASS STRUCT-CLASS STRUCT=INFO-CLASS
2) SI:CHECK-MULTIPLICITIES BACKQUOTE-EXPAND-WHEN
2) /#-MACRO-DATALIST ERROR-OUTPUT CERROR-PRINTER ))
2) )
2) (REMOB 'CC:subload)
2) (SETQ SAIL-MORE-SYSFUNS () )
2) (and (status FEATURE SAIL)
2) (FASLOAD (DSK (MAC LSP)) MATCH FAS))
2) (AND (STATUS FEATURE EXPERIMENTAL)
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/3P/134L
1) (MAPC #'(LAMBDA (X) (CCLOAD:BOOTMACS X 'MACRO))
1) '(LET LET* DESETQ DEFMACRO DEFMACRO-DISPLACE DEFUN/& MACRO
**** File 2) CCLOAD.INI[MAC,LSP]/3P/151L
2) (MAPC '(LAMBDA (X) (CCLOAD:BOOTMACS X 'MACRO))
2) '(LET LET* DESETQ DEFMACRO DEFMACRO-DISPLACE DEFUN/& MACRO
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/3P/139L
1) (MAPATOMS #'(LAMBDA (X) (AND (GET X 'MACRO)
1) (CCLOAD:BOOTMACS X 'MACRO))))
**** File 2) CCLOAD.INI[MAC,LSP]/3P/156L
2) (MAPATOMS '(LAMBDA (X) (AND (GET X 'MACRO)
2) (CCLOAD:BOOTMACS X 'MACRO))))
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/3P/146L
1) #+ITS (COND ((STATUS FEATURE SHARABLE)
1) (MAPC 'DEPURIFY-SYMBOL DEPURIFY-SYMBOL)
**** File 2) CCLOAD.INI[MAC,LSP]/3P/163L
1) CCLOAD.OLD[MAC,LSP] and 2) CCLOAD.INI[MAC,LSP] 2-23-81 12:40 pages 3,3
2) (COND ((STATUS FEATURE SHARABLE)
2) (MAPC 'DEPURIFY-SYMBOL DEPURIFY-SYMBOL)
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/4P/6L
1) (PROG (GL LVRL TIME RUNTIME ALARMCLOCK SLOTX REGACS
**** File 2) CCLOAD.INI[MAC,LSP]/4P/6L
2) (SETQ PUTPROP (PURCOPY
2) (APPEND '(STATUS SSTATUS INST INSTN IMMED ARITHP
2) NUMBERP NOTNUMP CONTAGIOUS COMMU BOTH CONV
2) ACS MINUS FLOATI P1BOOL1ABLE )
2) PUTPROP)))
2) (MAPC '(LAMBDA (L)
2) (MAPC '(LAMBDA (X) (OR (GETL X '(SUBR LSUBR MACRO AUTOLOAD))
2) (PUTPROP X `((LISP) ,X FASL) 'AUTOLOAD)))
2) (CDR L)))
2) '(((CERROR) CERROR FERROR SI:LOST-MESSAGE-HANDLER
2) SI:ERROR-OUTPUT-HANDLER +INTERNAL-LOSSAGE)
2) ((DEFSETF) DEFSETF)
2) ((ERRCK) CHECK-TYPE CHECK-SUBSEQUENCE CHECK-ARG ERROR-RESTART
2) SI:CHECK-TYPER SI:CHECK-SUBSEQUENCER)))
2) (OR (GETL 'LOAD-BYTE '(MACRO SOURCE-TRANS))
2) (MAPC '(LAMBDA (X)
2) (PUTPROP X
2) '(LAMBDA (X)
2) (REMPROP (CAR X) 'MACRO)
2) (FASLOAD (LISP) LODBYT)
2) X)
2) 'MACRO))
2) '(LOAD-BYTE LDB DEPOSIT-BYTE DPB)))
2) (PROG (GL LVRL TIME RUNTIME ALARMCLOCK SLOTX REGACS
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/6P/17L
1) (AND PURE (PAGEBPORG))
1) (SETQ CCLOAD:DEV-DIR
**** File 2) CCLOAD.INI[MAC,LSP]/6P/17L
2) (SETQ CCLOAD:DEV-DIR
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/7P/42L
1) (LDB MACRO LODBYT)
1) (+INTERNAL-SETF-X SUBR SETF)
1) (DEFSETF MACRO DEFSETF)
1) (EVAL-ORDERED MACRO EVONCE)
1) CCLOAD.OLD[MAC,LSP] and 2) CCLOAD.INI[MAC,LSP] 2-23-81 12:40 pages 7,7
1) (Y-OR-N-P LSUBR YESNOP)
1) (CERROR LSUBR CERROR)))
1) ;;; Falls thru to below
**** File 2) CCLOAD.INI[MAC,LSP]/7P/42L
2) (+INTERNAL-SETF-X SUBR SETF)))
2) ;;; Falls thru to below
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/8P/38L
1) (MAPC LVRL '(COMPLR PHAS1 COMAUX FASLAP MAKLAP INITIA))
1) #+SAIL (PROGN
**** File 2) CCLOAD.INI[MAC,LSP]/8P/38L
2) (MAPC LVRL '(COMPLR PHAS1 COMAUX FASLAP MAKLAP INITIA SRCTRN))
2) #+SAIL (PROGN
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/8P/50L
1) %%EXPAND%% %%EXPAND1%%)
1) SAIL-MORE-SYSFUNS))
**** File 2) CCLOAD.INI[MAC,LSP]/8P/50L
2) %%EXPAND%% %%EXPAND1%% %%%STRING%%% )
2) SAIL-MORE-SYSFUNS))
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/9P/13L
1) (INITIALIZE)
**** File 2) CCLOAD.INI[MAC,LSP]/9P/13L
2) (MAPC #'(LAMBDA (X) (REMPROP X 'MACRO)) CCLOAD:BOOTMACS)
2) (REMPROP 'CCLOAD:BOOTMACS 'EXPR)
2) (INITIALIZE)
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/10P/4L
1) (MAPC #'(LAMBDA (X) (REMPROP X 'MACRO)) CCLOAD:BOOTMACS)
1) (REMPROP 'CCLOAD:BOOTMACS 'EXPR)
1) (AND (FILEP UREAD) (CLOSE UREAD))
**** File 2) CCLOAD.INI[MAC,LSP]/10P/4L
2) (AND (FILEP UREAD) (CLOSE UREAD))
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/10P/18L
1) #+ITS (COND (PURE (PAGEBPORG) (PURIFY 0 0 'BPORG)))
1) (SETQ PURE CCLOAD:PURE *PURE () )
1) CCLOAD.OLD[MAC,LSP] and 2) CCLOAD.INI[MAC,LSP] 2-23-81 12:40 pages 10,10
**** File 2) CCLOAD.INI[MAC,LSP]/10P/16L
2) (cond ((not (status FEATURE PAGING)) )
2) (pure (PAGEBPORG) (PURIFY 0 0 'BPORG)))
2) (SETQ PURE CCLOAD:PURE *PURE () )
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/10P/32L
1) (LET ((BASE 10.) (IBASE 10.) (*NOPOINT 'T))
1) (SETQ CCLOAD:DUMPVERNO
1) (EXPLODEN (CADDR (PROBEF (MERGEF CCLOAD:DUMPFILE '|* >|)))))
1) (SETQ CCLOAD:DUMPVERNO
**** File 2) CCLOAD.INI[MAC,LSP]/10P/31L
2) (LET ((BASE 10.) (IBASE 10.) (*NOPOINT 'T)
2) (X (NTH 2 (PROBEF '|DSK:LSPDMP;XC.DMP >|)))
2) (Y (NTH 2 (PROBEF '|DSK:LSPDMP;CL.DMP >|))))
2) (SETQ CCLOAD:DUMPVERNO
2) (EXPLODEN (COND ((OR (NULL X) (ALPHALESSP X Y)) Y)
2) (T X))))
2) (SETQ CCLOAD:DUMPVERNO
***************
**** File 1) CCLOAD.OLD[MAC,LSP]/10P/57L
1) β
**** File 2) CCLOAD.INI[MAC,LSP]/10P/59L
2) βββ
***************